RCDFLG=-1;
 
  < ZOR21.DAT  --  RANDOM NUMBER=     1
 PLAY;
 CLAR     0.000    0.200 C    
;PRINT(P1);< CLAR    1
 CLAR     0.200    0.300 CS*2 
;PRINT(P1);< CLAR    2
 CLAR     0.500    1.000 A    
;PRINT(P1);< CLAR    3
 CLAR     1.500    0.100 AS/2 
;PRINT(P1);< CLAR    4
 CLAR     1.600    0.200 FS/2 
;PRINT(P1);< CLAR    5
 CLAR     1.800    0.300 C    
;PRINT(P1);< CLAR    6
 CLAR     2.100    1.000 CS*2 
;PRINT(P1);< CLAR    7
 CLAR     3.100    0.100 A    
;PRINT(P1);< CLAR    8
 CLAR     3.200    0.200 AS/2 
;PRINT(P1);< CLAR    9
 CLAR     3.400    0.300 FS/2 
;PRINT(P1);< CLAR   10
 FINISH; < ZOR21.DAT